program trio;
const forever = false;

procedure writer(i:integer);
begin
  repeat
    writeln('process # ',i);
  until forever;
end;
	(* tab test *)
begin
  cobegin
        writer(1);
        writer(2);
        writer(3);
  coend 
end.
